home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.6 / ffcollection-1-6-1993-02.iso / ff_disks / 061-090 / make disk < prev    next >
Text File  |  1993-01-12  |  3KB  |  200 lines
  1. .Key  ""
  2. lab TOP
  3. echo " "
  4. echo " This script will allow you to create AmigaLibDisks from the"
  5. echo " compressed files in this folder. These files have been "
  6. echo " archived to allow the entire collection to reside on a "
  7. echo " single CD ROM."
  8. echo " "
  9. echo "  You may type Q at most prompts to abort this operation."
  10. echo " "
  11. echo " Enter number of the AmigaLibDisk you wish to make (61 - 90):  " NOLINE
  12. failat 20
  13. skip >NIL: ?
  14. lab 61
  15.   set num "061"
  16.   skip MAKEM 
  17. ;
  18. lab 62
  19.   set num "062"
  20.   skip MAKEM 
  21. ;
  22. lab 63
  23.   set num "063"
  24.   skip MAKEM 
  25. ;
  26. lab 64
  27.   set num "064"
  28.   skip MAKEM 
  29. ;
  30. lab 65
  31.   set num "065"
  32.   skip MAKEM 
  33. ;
  34. lab 66
  35.   set num "066"
  36.   skip MAKEM 
  37. ;
  38. lab 67
  39.   set num "067"
  40.   skip MAKEM 
  41. ;
  42. lab 68
  43.   set num "068"
  44.   skip MAKEM 
  45. ;
  46. lab 69
  47.   set num "069"
  48.   skip MAKEM 
  49. ;
  50. lab 70
  51.   set num "070"
  52.   skip MAKEM 
  53. ;
  54. lab 71
  55.   set num "071"
  56.   skip MAKEM 
  57. ;
  58. lab 72
  59.   set num "072"
  60.   skip MAKEM 
  61. ;
  62. lab 73
  63.   set num "073"
  64.   skip MAKEM 
  65. ;
  66. lab 74
  67.   set num "074"
  68.   skip MAKEM 
  69. ;
  70. lab 75
  71.   set num "075"
  72.   skip MAKEM 
  73. ;
  74. lab 76
  75.   set num "076"
  76.   skip MAKEM 
  77. ;
  78. lab 77
  79.   set num "077"
  80.   skip MAKEM 
  81. ;
  82. lab 78
  83.   set num "078"
  84.   skip MAKEM 
  85. ;
  86. lab 79
  87.   set num "079"
  88.   skip MAKEM 
  89. ;
  90. lab 80
  91.   set num "080"
  92.   skip MAKEM 
  93. ;
  94. lab 81
  95.   set num "081"
  96.   skip MAKEM 
  97. ;
  98. lab 82
  99.   set num "082"
  100.   skip MAKEM 
  101. ;
  102. lab 83
  103.   set num "083"
  104.   skip MAKEM 
  105. ;
  106. lab 84
  107.   set num "084"
  108.   skip MAKEM 
  109. ;
  110. lab 85
  111.   set num "085"
  112.   skip MAKEM 
  113. ;
  114. lab 86
  115.   set num "086"
  116.   skip MAKEM 
  117. ;
  118. lab 87
  119.   set num "087"
  120.   skip MAKEM 
  121. ;
  122. lab 88
  123.   set num "088"
  124.   skip MAKEM 
  125. ;
  126. lab 89
  127.   set num "089"
  128.   skip MAKEM 
  129. ;
  130. lab 90
  131.   set num "090"
  132.   skip MAKEM 
  133. ;
  134.  
  135. lab MAKEM
  136. set src1  "FF_$num.lha"
  137. set dst  "AmigaLibDisk_$num"
  138.  
  139.  
  140. echo ""
  141. echo "This script will create the following disk (or copy files to RAM):"
  142. echo ""
  143. echo "                          $dst"
  144. echo ""
  145. echo "                Type Q to Abort this operation."
  146. echo ""
  147. lab GETDRIVE
  148. echo "  Which drive do you want to unpack to? [DF0,DF1,RAM]: "  NOLINE
  149. failat 20
  150. skip >NIL: ? 
  151.  
  152. lab DF0
  153.   set drive "DF0:"
  154.   skip HAVEDRIVE
  155. ;
  156. lab DF1
  157.   set drive "DF1:"
  158.   skip HAVEDRIVE
  159. ;
  160. lab RAM
  161.   set drive "RAM:"
  162.   skip DORAM
  163. ;
  164. lab Q
  165.   skip QUIT
  166. ;
  167.  
  168. lab HAVEDRIVE
  169. ask "  Do you have a blank unformatted disk in drive $drive?"
  170. if not WARN
  171.     echo ""
  172.     echo "  Try again when you do ..."
  173.     echo "  All Done.  Click close gadget to get rid of window."
  174.     endcli
  175. endif
  176.  
  177. echo ""
  178. echo "  ==> sys:system/format drive $drive name $dst NOICONS"
  179. sys:system/format drive $drive name $dst NOICONS
  180. lab DORAM
  181. echo "  ==> :c/lha -axm x $src1 $drive"
  182. :c/lha -axm x $src1 $drive
  183. lab QUIT
  184. echo ""
  185. echo "  All Done.  Click close gadget to get rid of window."
  186. endcli
  187.  
  188.  
  189. endskip
  190. echo ""
  191. echo "  Invalid Disk Numer or Drive Selection, Please try again!"
  192. skip back TOP
  193. ;
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.